home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 1 / DOS002.dsk / ANY CHARACTER INPUT ROUTINE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  396b  |  14 lines
  1. 10  REM  TO ALLOW PROHIBITED
  2. 11  REM  CHARACTERS LIKE THE
  3. 12  REM  COMMA IN INPUT
  4. 13  REM           STATEMENTS
  5. 14  REM  CALL-APPLE SEPT 79
  6. 100  LET IN$ = "X"
  7. 110  GOSUB 140
  8. 120  CALL 768:IN$ =  MID$ (IN$,1)
  9. 130  PRINT IN$: END 
  10. 140  FOR I = 768 TO 788
  11. 150  READ J: POKE I,J: NEXT : RETURN 
  12. 200  DATA  162,0,32,117,253,160,2
  13. 210  DATA  138,145,105,200,169,0,145
  14. 220  DATA  105,200,169,2,145,105,96